// $Header: $
// Copyright (c) CODE Consulting and Development, s.r.o., Plzen. All rights reserved.
// ReSharper disable ArrangeModifiersOrder
// ReSharper disable InconsistentNaming
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
using System;
using System.Diagnostics;
using OpcLabs.EasyOpc.DataAccess;
using OpcLabs.EasyOpc.DataAccess.AddressSpace;
using OpcLabs.EasyOpc.OperationModel;
namespace BrowseBranchesWeb
{
public partial class _Default : System.Web.UI.Page
{
// Use a shared client instance to allow for better optimization.
static private readonly EasyDAClient Client = new EasyDAClient();
protected void Page_Load(object sender, EventArgs e)
{
try
{
DANodeElementCollection elementDictionary = Client.BrowseBranches("", "OPCLabs.KitServer.2");
Debug.Assert(!(elementDictionary.Keys is null));
foreach (string key in elementDictionary.Keys)
{
Debug.Assert(!(key is null));
var branchElement = elementDictionary[key];
Debug.Assert(!(branchElement is null));
ListBox1.Items.Add(branchElement.ItemId);
}
ListBox1.Visible = true;
}
catch (OpcException ex)
{
TextBox1.Text = ex.GetBaseException().Message;
TextBox1.Visible = true;
}
}
protected override void OnInit(EventArgs e)
{
base.OnInit(e);
Load += Page_Load;
}
}
}
'
' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
Imports OpcLabs.EasyOpc.DataAccess
Imports OpcLabs.EasyOpc.OperationModel
' ReSharper disable InconsistentNaming
Partial Public Class _Default
Inherits Page
' Use a shared client instance to allow for better optimization.
Shared ReadOnly Client As New EasyDAClient
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
Try
Dim branchElements = Client.BrowseBranches("", "OPCLabs.KitServer.2")
For Each branchElement In branchElements
ListBox1.Items.Add(branchElement.ItemId)
Next
ListBox1.Visible = True
Catch ex As OpcException
TextBox1.Text = ex.GetBaseException.Message
TextBox1.Visible = True
End Try
End Sub
End Class